home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1990 March & April / rerun-1990-03-04.d64 / color quick (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  956b  |  32 lines
  1. 10 for i=49152 to 49283: read a
  2. 20 poke i,a: next: sys 49152
  3. 30 end :rem remove end and replace with return if using as a subroutine
  4. 49152 data 169,13,162,192,120,141,20
  5. 49159 data 3,142,21,3,88,96,173,141
  6. 49167 data 2,201,0:rem change here for combinations from table 1 below
  7. 49170 data 208,32,165,203,201
  8. 49175 data 5: rem screen key
  9. 49176 data 208,6,32,55,192,32,121
  10. 49183 data 192,201,6: rem border key
  11. 49186 data 208,6,32,67,192
  12. 49191 data 32,121,192,201,3: rem text key
  13. 49196 data 208,6,32
  14. 49199 data 79,192,32,121,192,76,49
  15. 49206 data 234,168,174,33,208,32,109
  16. 49213 data 192,142,33,208,152,96,168
  17. 49220 data 174,32,208,32,109,192,142
  18. 49227 data 32,208,152,96,168,174,134
  19. 49234 data 2,32,109,192,142,134,2,138
  20. 49242 data 162,0,157,0,216,157,0,217
  21. 49250 data 157,0,218,157,0,219,232
  22. 49257 data 208,241,152,96,138,41,15
  23. 49264 data 170,232,224,16,208,2,162
  24. 49271 data 0,96,160,0,162,0,202,208
  25. 49279 data 253,136,208,248,96
  26. 50000 rem table 1
  27. 50001 rem 1=shift :2=logo :3=shift/logo
  28. 50002 rem 4=ctrl :5=shift/ctrl
  29. 50003 rem 6=ctrl/logo :7=shit/ctrl/logo
  30. 50004 rem table 2
  31. 50005 rem f1=4 :f3=5: f5=6: f7=3
  32.